Shareware Grab Bag/Shareware Grab Bag.iso/003/dbarc.arc/DBARC.PRG

Text File | 1985-08-26 | 5.4 KB | 193 lines

*
SET HEADING OFF
SET SAFETY OFF
SET TALK OFF

* Program..: ARC.PRG  Ver 1.0
* Author...: Jim Ray
* Date.....: 08/26/85
* Notice...: Copyright 1985, All Rights Reserved
* Notes....: This program uses ARC430
* Notes....: If you like this program send a donation of $10.00 to
* Notes....: Balanced Comuter Systems
* Notes....: PO Box 1429
* Notes....: Tustin,Ca.  92681
* Notes....: You can make any modifications you want in the program.

DO WHILE .T.
CLEAR ALL
CLEAR
@  1, 0 SAY "========================================"
@  1,40 SAY "========================================"
@  2, 0 SAY "||"
@  2,11 SAY "A R C   F I L E   U T I L I T Y  P R O G R A M  VER 1.1"
@  2,78 SAY "||"
@  3, 0 SAY "========================================"
@  3,40 SAY "========================================"
@  4, 0 SAY "||"
@  4,78 SAY "||"
@  5, 0 SAY "||"
@  5,78 SAY "||"
@  6, 0 SAY "||"
@  6,78 SAY "||"
@  7, 0 SAY "||"
@  7,78 SAY "||"
@  8, 0 SAY "||"
@  8,78 SAY "||"
@  9, 0 SAY "||"
@  9,78 SAY "||"
@ 10, 0 SAY "||"
@ 10,78 SAY "||"
@ 11, 0 SAY "||"
@ 11,78 SAY "||"
@ 12, 0 SAY "||"
@ 12,78 SAY "||"
@ 13, 0 SAY "||"
@ 13,78 SAY "||"
@ 14, 0 SAY "||"
@ 14,78 SAY "||"
@ 15, 0 SAY "||"
@ 15,78 SAY "||"
@ 16, 0 SAY "||"
@ 16,78 SAY "||"
@ 17, 0 SAY "========================================"
@ 17,40 SAY "========================================"
@  5,20 SAY " 0. exit"
@  6,20 SAY " 1. Add files to archive"
@  7,20 SAY " 2. Move file to archive"
@  8,20 SAY " 3. Delete files from archive"
@  9,20 SAY " 4. Extract files from archive"
@ 10,20 SAY " 5. Run files from archive"
@ 11,20 SAY " 6. Convert entry to new packing method"
@ 12,20 SAY " 7. List files in archive"
@ 13,20 SAY " 8. Test archive integrity"
@ 14,20 SAY " 9. Instructions"
STORE 10 TO selnum
DO WHILE selnum < 0 .OR. selnum >  9
   STORE " " TO sel
   @ 17,33 SAY " select : : "
   @ 17,42 GET sel PICTURE "#"
   READ
   STORE VAL(sel) TO selnum
ENDDO

DO CASE
   CASE selnum= 0
      SET BELL ON
      CLEAR ALL
      RETURN
   CASE selnum= 1
    STORE "        " TO VAR
    STORE "            " TO FILE
    @ 19,10 SAY 'Input the archive name here: '
    @ 19,40 GET VAR
    @ 20,10 SAY 'Input file name here with EXT'
    @ 20,40 GET FILE
    READ
    STORE TRIM(VAR) + ".ARC" TO ARC
    CLEAR
    RUN ARC430 -A &ARC &FILE
    WAIT
   CASE selnum= 2
   *  Move file to archive
    STORE "        " TO VAR
    STORE "            " TO FILE
    @ 19,10 SAY 'Input the archive name here: '
    @ 19,40 GET VAR
    @ 20,10 SAY 'Input file name here with EXT'
    @ 20,40 GET FILE
    READ
    STORE TRIM(VAR) + ".ARC" TO ARC
    CLEAR
    RUN ARC430 -D &ARC &FILE
    WAIT
   CASE selnum= 3
   *  Delete files from archive
    STORE "        " TO VAR
    STORE "            " TO FILE
    @ 19,10 SAY 'Input the archive name here: '
    @ 19,40 GET VAR
    @ 20,10 SAY 'Input file name here with EXT'
    @ 20,40 GET FILE
    READ
    STORE TRIM(VAR) + ".ARC" TO ARC
    CLEAR
    RUN ARC430 -D &ARC &FILE
    WAIT
   CASE selnum= 4
   *  Extract files from archive
    STORE "        " TO VAR
    @ 19,10 SAY 'Input the archive name here: '
    @ 19,40 GET VAR
    READ
    STORE TRIM(VAR) + ".ARC" TO ARC
    CLEAR
    RUN ARC430 -X &ARC
    WAIT
   CASE selnum= 5
   *  Run files from archive
    STORE "        " TO VAR
    STORE "            " TO FILE
    @ 19,10 SAY 'Input the archive name here: '
    @ 19,40 GET VAR
    @ 20,10 SAY 'Input file name here with EXT'
    @ 20,40 GET FILE
    READ
    STORE TRIM(VAR) + ".ARC" TO ARC
    CLEAR
    RUN ARC430 -R &ARC &FILE
    WAIT
   CASE selnum= 6
   *  Convert entry to new packing method
    STORE "        " TO VAR
    STORE "            " TO FILE
    @ 19,10 SAY 'Input the archive name here: '
    @ 19,40 GET VAR
    @ 20,10 SAY 'Input file name here with EXT'
    @ 20,40 GET FILE
    READ
    STORE TRIM(VAR) + ".ARC" TO ARC
    CLEAR
    RUN ARC430 -C &ARC &FILE
    WAIT
   CASE selnum= 7
    STORE "        " TO VAR
    @ 19,10 SAY 'Input the archive name here: '
    @ 19,40 GET VAR
    @ 20,10 SAY 'No extention is needed here'
    READ
    STORE TRIM(VAR) + ".ARC" TO ARC
    CLEAR
    RUN ARC430 -L &ARC
    WAIT
  CASE selnum= 8
   *  Test archive integrity
    STORE "        " TO VAR
    @ 19,10 SAY 'Input the archive name here: '
    @ 19,40 GET VAR
    @ 20,10 SAY 'No extention is needed here'
    READ
    STORE TRIM(VAR) + ".ARC" TO ARC
    CLEAR
    RUN ARC430 -T &ARC
    WAIT
   CASE selnum= 9
? 'This program is written by Jim Ray of Balanced Computer Systems.'
? 'It is intended for the use of helping the user when using ARC430.'
? 'The program can be modified to the need of the user,but this program'
? 'can not be sold. I also will not be held responsible for any wierd'
? 'things that might happen when running this program. I have tested'
? 'it out and works great. If you feel like you have benifited from it,'
? 'you can send a $10.00 donation to PO BOX 1429  TUSTIN, CA. 92681.'
? 'This one program is the first but not the last of good dbase III'
? 'utiliy programs. I hope you get allot of use from it.'
? ' '
? 'If you have any problems with the commands, go into the system and'
? 'type ARC430 and this will list out the format needed. Also no EXT  '
? 'is needed with when putting in the file.arc.'
WAIT
ENDCASE

ENDDO T